home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 75 / XENIATGM75.iso / Shareware / X-Setup 5.0 / _SETUP.1 / XQ IE Outlook Express 2.xpl < prev    next >
Text File  |  1998-08-20  |  2KB  |  70 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="3"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Outlook Express"
  5. "NAME"="Address Book Folder"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Adress Book"
  8. "DATA 1"="WAB Files (*.wab)|*.wab"
  9. "DESCRIPTION 1"="If you do not like the default location of your Outlook Express Address Book, you can change it here."
  10. "DESCRIPTION 2"="Please select the new location for the address book (WAB) file and the file will be moved there."
  11. "DESCRIPTION 3"="Remember to exit Outlook Express before applying the change!"
  12. "AUTHOR"="Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  15. "COMMENT 2"="Version 1.0"
  16. "COMMENT 3"=" "
  17. "COMMENT 4"="Thanks to Bj÷rn Teichmann and Marco Schelling for this setting."
  18.  
  19.  
  20.  
  21. 'sPath="HKCU\Software\Microsoft\WAB\WAB4_1\Wab File Name\"
  22. sPath="HKCU\Software\Microsoft\WAB\WAB4\Wab File Name\"
  23. sPath2=sPath & "@"
  24. sOld=""
  25. Sub Plugin_Initialize 
  26.  if RegPathExists(sPath) then
  27.   s=RegReadValue(sPath2)
  28.   SetUIElement 1,s
  29.  
  30.   sOld=s
  31.  else
  32.   Disable
  33.  end if
  34. End Sub
  35.  
  36. Sub Plugin_CheckData(ElementIndex)
  37. End Sub
  38.  
  39. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  s=GetUIElement(1)
  41.  
  42.  if s<>"" then
  43.   if UCase(right(s,3))<>"WAB" then
  44.    Call MsgError("Please enter the name and path of the WAB file, for example C:\DATA\ADDRB.WAB. Do not forgot the WAB extension.") 
  45.   else
  46.    if FileExists(s)=true then
  47.     Call MsgError("The selected file already exists! Please choose a different name.")
  48.    else
  49.     'looks OK, let's try it
  50.        
  51.     Call FileCopy(sOld,s)
  52.     Call RegWriteValue(sPath2,s,1)
  53.  
  54.     Call FileDelete(sOld)
  55.  
  56.     Call MsgInformation("File has been moved to " & s & ".")
  57.    end if
  58.   end if
  59.  else
  60.   Call MsgError("Please supply a location for the WAB file!")
  61.  end if
  62. End Sub
  63.  
  64.  
  65. Sub Plugin_Terminate 
  66. End Sub
  67.  
  68.  
  69.  
  70.